home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 23.zip
/
BS1 part 23
/
Superbase 4 ser 12C00584^1.adf
/
Trading
/
STKDC.SBP
< prev
next >
Wrap
Text File
|
1991-03-13
|
3KB
|
140 lines
SBP
ÿ½ STKDC
ÿ½ Enter Daily Exchange Rates/Stock Prices/Certificate Numbers
ÿ½ Last updated Jan 03, 90
ÿ³ÿ_ÿwferror
stkdc:ÿ½ Assign function parameters
ÿ½ k% is 1 for string and 2 for numeric key
cur%ÿ1:sto%ÿ2:nos%ÿ3:k%ÿ1:frow%ÿ10
ÿÉÿæmb%
ÿæcur%
f$ÿ"Currency":fkey$ÿ"Currency":fmd$ÿ"stkdc":frow%ÿ12
ÿæsto%
f$ÿ"stocks":fkey$ÿ"Stock_Key":fmd$ÿ"stkds"
ÿænos%
f$ÿ"trans":fkey$ÿ"Transaction ref":fmd$ÿ"stkdn":k%ÿ2
ÿÿÉ
ÿ´ÿf$
ÿ£fkey$
ÿ¡mb%ÿnos%ÿpÿÉÿÐTrans_Type ÿ"b"ÿCert_Sent_yn ÿ"n"
ÿ´ÿfmd$
floop:ÿ½ Display from first record
ÿvslimits
ÿ¡k%ÿ1ÿpckey$ÿfstk$ÿ^ckey%ÿfstk%
ÿvspage
fwait:ÿ½ Wait here for a push button
mp%ÿ0
ÿÊÿËss13$
ÿÏÿß
ÿ½ Edit line
ÿ¡(mp%ÿ0ÿmp%ÿlrec%)ÿpÿwfwait
ÿÊÿËss4$
ÿÉÿÿ"mp%
ÿßÿ³
ÿÉÿæmb%
ÿæcur%
ÿUSD Xrate ÿ"mp%
ÿæsto%
ÿPrice Asked ÿ"mp%ÿqPrice Bid ÿ"mp%
ÿænos%
ÿCertificate_No ÿ"mp%
ÿÿÉ
ÿÂms1$,"",127,a%
ÿ¡a%ÿp
ÿÉÿæmb%
ÿæcur%
Date of Xrate.CURRENCYÿÿQ
ÿæsto%
Price Date.STOCKSÿÿQ:Price Time.STOCKSÿÿR
ÿÿÉ
ÿÌ
ÿ^
ÿ¡k%ÿ1ÿpÿÉÿ¥pstk$(mp%)ÿ^ÿÉÿ¥pstk%(mp%)
ÿÍÿÿ"mp%
ÿ
ÿÿ¡
ÿßÿe
ÿwfwait
fnext:ÿ½ Next page
ÿ¡(k%ÿ1ÿlstk$ÿpstk$(lrec%))ÿpÿwfwait
ÿ¡(k%ÿ2ÿlstk%ÿpstk%(lrec%))ÿpÿwfwait
ÿ¡k%ÿ1ÿpÿÉÿ¥pstk$(lrec%)ÿ^ÿÉÿ¥pstk%(lrec%)
ÿÉÿ±
ÿwfcurr
fprev:ÿ½ Prev page
ÿ¡(k%ÿ1ÿfstk$ÿpstk$(1))ÿpÿwfwait
ÿ¡(k%ÿ2ÿfstk%ÿpstk%(1))ÿpÿwfwait
ÿ¡k%ÿ1ÿpÿÉÿ¥pstk$(1)ÿ^ÿÉÿ¥pstk%(1)
ÿi%ÿ1ÿqfrow%
ÿÉÿg
ÿ±i%
fcurr:ÿ½ Assign ckey
ÿ¡k%ÿ1ÿp
ÿ"ckey$ = "ÿfkey$
ÿ^
ÿ"ckey% = "ÿfkey$
ÿÿ¡
ÿvspage
ÿ
ÿwfwait
fexit:ÿ½ Exit
ÿÉÿÐ
ÿ"menu"
slimits: ÿ½ Get first and last keys
ÿÉÿb
ÿ¡k%ÿ1ÿp
ÿ"lstk$ = "ÿfkey$
ÿÉÿ`:ÿ"fstk$ = "ÿfkey$
ÿ^
ÿ"lstk% = "ÿfkey$
ÿÉÿ`:ÿ"fstk% = "ÿfkey$
ÿÿ¡
ÿÃ
spage:ÿ½ Displays page of records starting with ckey
ÿ½ Returns key array and number of records for page
ÿÿ
ÿ¡k%ÿ1ÿpÿÉÿ¥ckey$ÿ^ÿÉÿ¥ckey%
j%ÿ0
ÿi%ÿ1ÿqfrow%
ÿÍÿÿ"i%
j%ÿj%ÿ1
ÿ¡k%ÿ1ÿp
ÿ"pstk$(i%) = "ÿfkey$
ÿ"IF "ÿfkey$ÿ"=lstk$ then i% = frow%"
ÿ^
ÿ"pstk%(i%) = "ÿfkey$
ÿ"IF "ÿfkey$ÿ"=lstk% then i% = frow%"
ÿÿ¡
ÿ¡i%ÿ
frow%ÿpÿÉÿ±
ÿ±i%
ÿ¡j%ÿfrow%ÿplrec%ÿfrow%ÿ^lrec%ÿj%
ÿÃ
ferror: ÿ½ Error conditions
res%ÿ0
ÿ¡ÿ&ÿ11ÿp
ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
ÿ^ÿ¡ÿ&ÿ57ÿp
ÿÂms8$,"",100,a%:res%ÿ2
ÿ^
ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
ÿÿ¡
ÿ¡res%ÿ1ÿpÿy
ÿ¡res%ÿ2ÿpÿyfloop
ÿ¡res%ÿ3ÿpÿyfwait
ÿ